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PLANODAOBRA 

"INPUT" e uma obra editada em fasciculos semanais, e cada 
conjuntode 15 fasciculos compoe urn volume Acapa paraenca- 
demacao de cada volume estara a venda oportunamente. 

COMPLETE SUA COLECAO 

Exemplares atrasados, ate seis meses apos o encerramento da colecjao, pode- 
rao ser comprados, a pregos atualizados, da seguinte forma: I. PESSOAL 
MENTE — Por meio de seu jornaieiro ou dirigindo-se ao dislribuidor local, 
cujo endereco podera ser facilmente conseguido junto a qualquer jornaieiro 
de sua cidade. Em Sao Paulo, os enderecos sao: rua Brigadeiro Tobias, 773, 
Centro; avenida Industrial, 117, Santo Andre; e no Rio de Janeiro: avenida 
Mem deSa, 191/193, Centro. 2. POR CARTA — Poderao ser solicitados exem- 
plares atrasados tarn bfa por carta, que deve ser enviada para D1NAP — Dis- 
tribuidora Nacional de Publicacoes — Numeros Atrasados — Estrada Velha 
deOsasco, 132, Jardim Teresa — CEP 06000 — Osasco — SP. Naoenviepa- 
gamento antecipado. O atendimento sera feito pelo reembolso postal e o pa- 
gamento, incluindo as despesas postais, devera ser e fetuado ao se retirar a en- 
comendana agenda do Correio. 3 . POR TELEX — U titi ze o n ? (01 1 ) 33 670 
DNAP. „ . „ Lt . 

Em Portugal, os pedidos devem ser feitos a Distribuidora Jardim de Publica- 
coes, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P. 

Alencao: Apos seis meses do encerramento da colecao, os pedidos serao aten- 
didos dependendo da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre tituto e/ou autor da obra, alem 
do numero da edicao. 
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Encaminheseuscornentarios.criticas, sugestoes ou reclamacoes 
ao Servico de Atendimento ao Leitor — Caixa Postal 9442, 
Sao Paulo — SP. 
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CONSUUA 
AOS ASTROS 



CARREIRA/DINHEIRO 



CONTATOS/VIAGENS 



FAMILIA 



AMOR 



PERSONALIDADE 



Muitas pessoas nao saem de casa sem 
consultar o fooroscopo: Voce pode 
nao ser urna delas, mas certamente se 
divertira ouvindo o que o computador 
tern a dizer sobre seu destino. 



Astrologia e horoscopos intrigam as 
pessoas desde a Antiguidade, e t£m si- 



do motive de muita controversia. Cien- 
tistas de historico tao distinto, como 
Einstein e Jung, acreditavam na influen- 
cia dos astros sobre as pessoas — hipote- 
se rejeitada pela maioria dos seus con- 
temporarieos, Estudos multidiscipiina- 
res recentes, contudo, tem apresentado 
algumas evidencias diffceis de se refu- 
tar. Seja como for, o papel dos astros 
na determinacao da personaiidade e do 
destino dos seres humanos e uma ques- 



tao que permaneee aberta a discussao. 
Ainda que o tema nao o apaixone, 
voce podera passar horas muilo agrada- 
veis com seus amigos em torno de um 
computador astnMogo. Para atribuir a 
maquina esse papel, basta digitar o pro- 
grama aqui apresentado. Ele Fornecera 
caracteristicas de personaiidade de ca- 
da um de acordo com seu signo solar, 
assim como as previsoes para o proxi- 
mo ano. Estas se dividem em quatro ca- 






tegorias: Diiiheiro/Carreira, Conta- 
tos/Viagens, Famflia e Amor. 

Como os horoscopos publicados nos 
jornais, o nosso tambem nao leva cm 
conta a hora exata do naseimeruo — da- 
do que os astrologos usam para forne- 
cer uma leitura mais completa do mapa 
astral de sens dicntes, 



OPCOES 



O programa pede a data de nascimen- 
to do consulente e diz o seu signo. 
Oferece-lhe, em seguida, duas opcoes: 
obter urn perfil de sua personal idade ou 
as previsoes para o proximo ano. 

Se o consulente escolher a primeira 
alternative, o programa selecionara duas 
semencas relacionadas ao seu signo, das 
oito que lem guardadas na memoria. Se 
optar pela segunda, tera que indicar um 
dos seguintes topicos: Dinheiro/Carrei- 
ra, Contatos/Viagens, Famflia e Amor. 
Duas previsoes vao entao aparecer. A 
maquina tern somentc duas guardadas 
para cada topico (por signo); portanto, 
nao havera nenhuma variaeao na res- 
posta, se voce fizer novamente a mes- 
ma escolha. 



PROGRAMA 



Uma parte do programa e especifica 
para cada computador. As linhas DA- 
TA sao comuns a lodos, embora algu- 
mas alteracoes sejam necessarias, como 
mostramos mais adiante. 



5 POKE 23658.8 

10 INPUT "DIGITE SUA DATA DE 

NASCIMENTO tDIA, MES , ANO) "i 

X.Y.Z 

20 IF X<1 OR X>31 OB Y<1 OB Y 

>12 THEN GOTO 10 

40 GOSUB 700 

90 CLS : PRINT AT 1,1; "SEU SI 

GNO E " ; INVERSE 1 ;AS 
100 PRINT AT 5.1;" VOCE DESEJA 
:"'TAB 3:"<1> PERFIL DE PERSO 
NALIDADE" 'TAB 3;"<2> PREVISAO 
PARA 1988" 'TAB 3:"<N> ENTRAR N 
OVA DATA" 

120 LET K$=INKEYS: IF KS<"1" 
OR KS>"5" AND K3<>"N" THEN 
GOTO 120 

130 IF K$="2" THEN GOTO 300 
140 IF K3="N" THEN GOTO 10 
150 CLS : PRINT AT 0,15-{{LEN 
(AS)) 72) ;AS 
160 FOR B=l TO 2; LET A-INT { 
RND*4)+1 

170 FOR N=l TO A: READ BS.C3.D 
S: NEXT N 

180 PRINT ' ' : PRINT B$'C$'D$: 
NEXT B: PAUSE 0: GOSUB 700: 
GOTO 50 D 
300 CLS : PRINT AT 8,8;"PREVIS 




AO SOBRE :""TAB 4;"<1> DINHEI 
RO/CARHEIRA'-TAB 4;"<2> CONTAT 
OS/VIAGENS"'TAB 4;"<3> FAMILIA 

" 'TAB 4;"C4> AMOB " 
310 LET KS=TNKEY$: IF KS = "" 
THEN GOTO 310 
320 IF KS<"1" OR KS>"4" THEN 
GOTO 310 

330 RESTORE (4000 + 320* (ST-1 )) : 
FOR T-=l TO (VAL KS)-1: FOR N=0 
TO 7: READ BS: NEXT N: NEXT T 
335 CLS : PRINT AT 1,15-((LEN 
AS)/2) ;A$" ' 

340 FOR T=0 TO 7r READ BS : 
PRINT BS' : NEXT T 
500 PRINT AT 21 . 10 ; "OUTRA VEZ 
?" 

510 IF INKEYS="S" THEN GOTO 
90 

520 IF INKEYSO"N* THEN GOTO 
510 

5 30 STOP 

700 FOR T=l TO 12: RESTORE ( 
1000+250* (T-l)) 
710 READ AS.A.B.C.D 
720 IF B=Y AND X>=A THEN LET 
ST-T: LET T-l 2; NEXT T: RETURN 

730 IF D=Y AND X<=C THEN LET 
ST=T: LET T-12 : NEXT T: RETURN 

740 NEXT T: RETURN 

D 

10 PCLEAR 1 

20 DIM HSU1. 7,3) .DO, U) .S$<11 

) ,PSU1.3,7> 

30 FOR K-0 TO 11: READ SS(K>,D{0 

,K) .DU.K) ,D(2,K) ,D(3,K) :FOR J- 

TO 7: FOR L-0 TO 2rREAD H$(K,J 

,L) :NEXT L,J,K 

40 FOR K-0 TO 11: FOR J-0 TO 3:F 

OR L-0 TO 7: READ PS (K , J , L) :NEXT 

L ■ U t Mm 

50 CLStlNPUT-DIGITE SUA DATA DE 
NASCIMENTO £DIA r MES E ANO)': 
D,M,A:D=TNT(D) :M-INT(M) 
60 IF D<1 OR D>31 OR M<1 OR M>1 
2 OR CD>30 AND(M=4 OR M-6 OR M- 
9 OR M-10)) OR (D>29 AND M=2)TH 
EN 50 
70 SS»0 

80 IF M<D(l,SS)+12*tSS-2 AND M- 
1) OR M>D(3,SS)-12*(SS-2 AND M= 
12) OR (M-D(l.SS) AND D<D(0,SS) 
) QR(M-=D(3,SS)AND D>D(2,SS)) TH 
EN SS-SS+l:GOTO 80 
90 CLS:PRINT"SEU SIGNO E ";SS(S 
S) 

100 PRINT: PRINT TAB (10) "VOCE DE 
SEJA:" 

110 PRINT: PRINT TAB(3)"1- PERFI 
L DE PERSONALIDADE" 
120 PRINT TAB (3) "2- PREOISAO PA 
RA 1988" : PRINT: PRINT TAB(3)"N- 
ENTRAR NOVA DATA" 
130 K3-INKEYS:IF KS<"1" 0R(KS>" 
2" AND KS<>"N")THEN 130 
140 IF KS="2" THEN 190 ELSE IF 
K$="N" THEN 50 

150 CLS:PRINT &16-LEN (SS (SS} ) /2 
,SS(SS) : PRINT 
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160 C-8:FOB K-l TO 2:B=RND(B)-1 

:IF SOC THEN OB ELSE K-1:NEXT 

170 FOR L-0 TO 3: PRINT €L*32+K* 

128,H$(SS,C,L) :NEXT L,K 

180 GOTO 240 

190 CLS: PR INT #2 , "VOCE QUER SAB 

ER SOBRE: " 

200 PRINT: PRINT" 1- DINHEIRO/C 

AftHEIRA" : PRINT" 2- CONTATOS/VI 

ACENS": PRINT" 3- FAMILIA" : PRIN 

T" 4- AMOR" 

210 KS=INKEY$: IF K$<"1" OR K5>" 

4* THEN 210 

220 CLS: PRINT G16-LEN (S$ CSS) ) /2 

,S$(SS) :PRINT 

230 FOR K-0 TO 7 : PRINT «64+32*K 

-32*(K>3) ,PS(SS,VAL(K$)-1,K) : NE 

XT 

240 PRINT ^448," OUTRA VEZ (S/N 

) ?" 

250 KS«INKEYS:IF KSO'S" AND KS 

<>"N" THEN 250 

260 IF KS-"S" THEN 90 ELSE CLS: 

END 



Hti 



20 DIM HSC11.7.3) ,D(3.11) ,SS(11 

) .PSUl.3,7) 

30 FOB K-0 TO 11: READ S$(K).DC0 

,K) ,D(1.K) ,[>(2,K) ,DC3,K) :FOR J- 

TO 7: FOR F_ = TO 2: READ HSCK.J 

,L) :NEXT L.J.K 

40 FOR K-0 TO 11: FOB J-0 TO 3 : F 

OR L-0 TO 7: READ PS (K , J , L) : NEX 



T L.J.K 

50 CLS:INPUT"DIGITE SUA DATA DE 
NASCIMENTO (D.M.A) ":D.M.A:D=I 
NT(D) :M=1NTCM) 

60 IF DO. OB D>31 OB M<1 OR M>1 
2 OR (D>30 AND tM=4 OR M=6 OR M 
-9 OB M-.L1)) OR (D>29 AND M»2) 
THEN 50 
70 SS=0 

80 IF M<D(.l . SS)+1 2* (SS = 2 AND M= 
1) OR M>D(3.22)-12*(SS=2 AND M= 
12) OR (M = D(1. SS) AND D<D(0,SS) 
) OB (M-DU.SS) AND D>D(2,SS) ) 
THEN SS-SS+I : GOTO B0 
90 CLS: PRINT "SEU STONO 6 ";SS( 
SS) 

100 PRINT: PBINT TAB ( 1 0) ; "VOCE D 
ESEJA : " 

110 PBINT: PRINT TAB (3) 1*1- PERF 
IL DE PERSONA LI DADE" 
120 PRINT T*!(3){"2- PREVISAO P 
ABA 1988" :PRINT;PRINT TAB(3);"N 
- ENTRAR NOVA DATA" 
130 K$=TNKE¥$:IF K$<"1" OR (KS> 
"2" AND KS<>"N") THEN 130 
140 IF KS="2" THEN 190 ELSE IF 
K$-"N" THEN 50 

150 CLS: PRTNT TAB ( 20-LEN (SS (SS 
))/?.) iSS(SS) : PRTNT 
160 C-8: FOR K=J TO 2:B=8*RND<- 
TIME)-1:TF BOC THEN C-B ELSE K 
= I : NEXT 

170 FOB L=0 TO 3 : LOCATE < (L*32+K 
*12B)MOD3 2)+4,TNT{ (L*32+K*l 2B) J 
32):PRTNT HS (SS . C, L) : NEXT L.K 



180 GOTO 24 

190 CLS:PRJNT TAB ( 10) ; "PREVISAO 

SOBRE : " 
200 PBINT.-PBINT" 1- DTNHEIRO/CA 
RRETRA" : PRINT" 2- CONTATOS/VTAG 
ENS":PHTNT" 3- FAMTL IA" : PB TNT" 
4- AMOR" 

210 KS-INKEYS:IF K$<"1" OR KS>" 
4" THEN 210 

220 CLSrPRINT TAB ( 20-LEN (SS (SS) 
)/2) ;SS(SS) :PRINT 
230 FOH K = TO 7 : LOCATE C64+32*K 
-32* (K>3> )MOD3 2. TNT ( (64 + 3 2*K-3?. 
* (K>3) )/32) .PRINT PS (SS . VAL (KS ) 
-] ,K) :NEXT 

240 PRINT TAB ( 10) : "OUTRA VEZ (S 
/N)?" 

250 KS = TNKEK5:IF K$<>"S" AND KS 
<>"N" THEN 250 

260 IF KS="S" THEN 90 ELSE CLS: 
END 



QC 



10 HOME 

20 DIM HS(11 .7. 3) .DC3.11) .SSU 

1) ,P$(11 . },7) 

30 FOR K - TO 11: READ S$(K) 

,D(0,K) ,D(1 ,K) .D(2.K) .DC3.K) : F 

OR J = TO 7 : FOR L = TO 2 : 

READ HStK.J.L): NEXT L.J.K 

4 FOR K = TO 11: FOR J - 

TO 3: FOR L = TO /: READ PS ( K 

, J, L) : NEXT L. J,K 



I2i 



29 APUCACQIS 29 



SO HOME : PRINT "DIGITS SUft DA 
TA DE NASCIMENTO (D.M.A) ": INP 
UT D.M.A: D = INT t'D) :M = INT 
<M) 

60 IF D < 1 Oil D ) 31 OR M < 1 
■ i, M > 12 OR (D > 30 AND (M = 

4 on pi - 6 on m - •> or m = J 1} ) 

OH <D > .''•> AND H » .21 THEN 50 

70 t:s = u 

R0 IF M C DO ,MS) - I? * (SS - 

2 AND M = 1) OH M > D(I.SS) * 
12 * (SS = 2 AND M = 12) OH (H 

U(l.SS) AND D < D(O.SS)) OH ( 
M D ( 3 . SS ) AND D > D (2 , SS) ) TH 
EN B8 = SS 



9 



^ 1 : GOTO 80 

['PINT "SEU SIGNO E 



HTA11 (10): PRINT 



HOME : 
;S$ (SS) 

100 PlitNT 
VOCE DESEJA 
110 PRINT : PRINT TAB ( 3)"]- 
PEHFIL DE PERSONALIDADE" 
120 PRINT TAP! J) "2- PREVISAO 

PAHA 1988": PRINT : PRINT TAB 
( 3)"N- ENTHAH NOVA DATA" 
I JO GET KS: IF K$ < "I" OR (K$ 

> "2" AND KS < > *'N"1 THEN 1.1 


140 
145 
1E.0 



II KS - "2 
IF K3 ' "N 
HOME 
f 



(S$(SS)) / 2: HTAB 
SS!SS): PRINT 
160 C - 8: FOR K - 
INT ( RND (1) * 8) 

THEN C * E: IF B 



THEN 190 
THEN 10 
LET CE = 20 - LEN 
(CE) : PRINT 



1 TO 2:B ■ 
IF B < > C 

■■ C THEN K = 




230 FOR K ■ 
4 + 32 * K + 

(YY - 32 * 
AB ( INT (WW 



1 : NEXT 

170 FOR L = TO 3: LET WW = L 

* 32 + K » 128: HTAB (WW - 32 
* INT (WW / 3 2) ) : VTAB ( INT I 
WW / 32)): PRINT I15(SS.C,L): NE 
XT L, K 

180 GOTO 240 
190 HOME : PRINT TAB ( 10) "VOC 

E DESEJA:" 

200 PRINT : PHINT " I- DINHEI 

RO/CARREIRA": PRINT " 2" CONTA 

TOS/VIAGENS" : PRINT " 3- FAMIL 

IA" : PRINT * 4- AMOR" 

210 GET KS: IF KS < "1" OR KS 

> "4" THEN 210 

220 HOME :CE - 20 - LEN (S$(S 

S)> / 2: HTAB (CE) : PRINT S$ (SS 

) : PRINT 

TO 7: LET YY - 6 
32 * (K > 3) : HTAB 
INT (YY / 32)) : VT 
/ 32)) : PRINT P$<S 

S. VAL (KS) - l.K) : NEXT 

240 VTAB (18) : PRINT " OUTRA V 

EZ (S/N) ?" 

250 GET KS: IF KS < > "S" AND 
K$ < > "N" THEN 250 

260 IF K$ - *S" THEN 90 

270 IF KS = "N" THEN HOME : E 

ND 



UNHA DATA 



As linhas a seguir podem ser intro- 
duzidas como estao no MSX e no Ap- 
ple. Se voce possui urn TRS-Color, de- 
ve usar aspas em todas as linhas DATA 
que contem dois pontos (:) ou virgula. 
Os usuarios do Spectrum precisarao usar 
aspas em todas as tinhas, exceto naque- 
las que contem numeros. 



1000 DATA 
109 DATA 

102* DATA 
10:t) DATA 
1040 DATA 
10 SO DATA 
106a DATA 

10 7O DATA 
eel a I de ' 
1080 TATA 
e COB' 
1090 DATA 
nqu i 1 o . 
110(1 DATA 
ser* 

1110 DATA 
1120 DATA 
1110 DATA 
1140 DATA 
1150 DATA 
1160 DATA 
1.170 DATA 
11 SO DATA 

11 C10 DATA 
1200 DATA 



PEIXES,20.2,2Q,3 

Voce # nediun do 

"2odiaco. aendo o naia intuitiuo" 

e nenaitivo doe iignos 

Vocfr * piedooo e 

se envoJve prontanente con oh 

problemaB d«t outfaS peSBOas. 

"Voce aboorve aa atmoateraa. e pr 

-ui> ambiente alegre, envolvendo-a 

aquflea que o tuen ae aentir tra 

"Voce goata de ileool, e preeiaa 

cuidadoflo para nao ae enbebedar. 

voci e tao oeneroao que 

f rsquentetnente nao tem dinheiro 

o baatante para vocl meano. 

Voce e u« qrande art lata. T«m do» 

"para nilsica.. tlanta, rieaenho" 

ou totoarafia. 

"Voce vive e reapira religiio," 

itiaa nao necenaariaoente no 




1210 DATA sentido formal da palavra, 

1220 DATA •Compatibil idade: virgen. GAneos, 

1230 DATA Sagitano. 

1240 DATA "corea: verde, aiul.' 

1250 DATA AfllMHIO,21, 1 .19,2 

1260 DATA Voce considera mub anigea com 

1270 DATA "Bendo parte de sua fanilla. tant 

o* 

12H0 DATA quanto aeua parentes. 

1290 DATA Voct * independente deade 

1300 DATA "pequeno, mas t«rd una casa" 

1310 DATA aenpre cheia de aaisoa. 

1310 DATA voc* frequent* clubea e aaaecjagi 

ea 

13 30 DATA ma is do que oa outroa aignos 
1340 DATA e pode aer ua aeabro do CND. 
1350 DATA -Voce « inventive e inovador," 

1360 DATA e ten ldeiaa e concepeBea 

1370 DATA avaniadaa. 

1380 DATA voct ten dif iculdade e» ae 

1390 DATA "reportar a alguea, e pode ser" 

1400 DATA inolado por cauaa disso. 

1410 DATA "Voce veate roupaa bisarras." 

1420 DATA que a.a'o aala intereBsantea 

1430 DATA do que elegantes 1 

1440 DATA "Voce eacolhe citnciaa socials." 

1450 DATA politics ou enoenharia eletrflnica 

1460 DATA co»o carreira. 

1470 DATA "Compatibilidade: Capricdrnio, LI 

br a . " 



- 
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H80 


DATA 


1490 


DATA 


ISOfl 


DATA 


ISIS 


DATA 


1520 


DATA 


1530 


DATA 


1540 


DATA 


15S0 


DATA 


1560 


DATA 


1570 


DATA 


1580 


DATA 


1590 


DATA 


1600 


DATA 


1610 


DATA 


1620 


DATA 


1620 


DATA 


1640 


DATA 


1650 


DATA 


1660 


DATA 


1670 


DATA 


1680 


DATA 


1690 


DATA 


1700 


DATA 


mo 


DATA 


1720 


DATA 


17J0 


DATA 


1740 


DATA 


1750 


DATA 


1760 


DATA 


1770 


DATA 


1780 


DATA 



1790 DATA Vocft gnata de feataa « de 

1600 DATA "par tic l par de jd(os, nas" 

1810 DATA Beu fraco sao belaa coKaa, 

1820 DATA Voce adora viajar e conhecer 

1930 DATA novas peaaoaa. 

1840 DATA " " 

1BS0 DATA "Woe* ten bom ouuido para llnguas 

1860 DATA e pode lalar filar fluentemente 

1S70 DATA muitas dclaa. 

1BB0 DATA "Carreira: jornatista. radial lata 

1890 DATA "professor, Cildsofo." 

1900 DATA esportiata. 

1910 DATA "Voce e nuito dinamico, e" 

1920 DATA acha dificil ficar parade «n 

1930 DATA un neBBo lugar a tempo baatante 

1940 DATA para ser monogamo. 

1950 DATA "Voc* ad or a aninais, e a jogo," 

1960 DATA • infel Izmente , pode aer una fraqu 

en." 

1970 DATA "Conpatlbll idade: Peixes, Virgem. 

1980 DATA Oeneos. 

1990 DATA "Cores: azul royal, violeta" 

2000 DATA E5C0HPIAO. 24.10 ,22. 11 

2010 DATA y Voc* e o mars ap-aixonado doa Big 

noa, " 

2020 DATA "emotive, e, se contrar lado. " 

2030 DATA pode aer vlngaUvo. 

2040 DATA Voce e reconhecido por seuH 



2050 

2060 

207D 

2080 

2090 

2100 

2110 

2120 

2130 

□ 

2140 

2I!>0 

2160 

2170 

21R0 

2190 

2200 

2210 

2220 
2230 
22-.0 
2250 

2260 
2270 
2280 
2290 
2300 
2310 
2320 
2 330 
Z340 



DATA olhoa penetrances e por Beu 

DATA nariz nereta. 

DATA Seis oesea antes ou depola do 

DATA nascimento de ui Eacorpiao 

DATA um parentc falece. 

DATA Voc§ e interesaado em aprender 

DATA e ddora reaolver nsLenns. 

DATA " * 

DATA HoFr.ena e mulherea de Estorplai aa 



DATA muito atraldos pelo spm OPOBtO. 

DATA - " 

data "Carreira: policial, i ;t. 

DATA "t>lSlCdlo-{K>, cieric-ia.- 

DATA carrt- lr4.'i ram pusicjm d— pi -w-r 

DATA Voce nan •■ iv.ji lo r t J ^ n T « 

DATA man tudo o que tula ^ 

DATA "incisivo e,an vczea. aoruaoivti" 

DATA "Conpul ibi I idade. rancci , Libra. 

DATA "Tnr : Marron." 

DATA M " 

DATA LI BRA, 24, 'J. 2.1. 10 

DATA Voce e o cat want e do 

DATA "zodiaco. recnnht-cido por" 

DATA auaa hciaa mart^iraa. 

DATA "VocP riao aupurta Ficar ad:" 

DATA Precisa da coapftntal* de 

DATA outran pnsaoaa. 

DATA "Voce 4 urn pxcelentr antlti t4i>," 

DATA e *: nLjito habil' para c.-iar una 

DATA atmosfera de tutrnoiu*. 



"cor : azul ferret*. " 

CAPRICORrJIO.22.12,20.1 

Voce e o Dais anbicioao doa 

"signos, tracando pianos de" 

carreira deacfe pequeno. 

Aa cnancas de Caprmdrmo 

parecea. aer adultos aerioa e 

naduros desde o naBciuento. 

Voce preciaa ae resguardar 

contra o reuaaLismo e todoa as 

aliaentoa que atacan a espinha. 

A9 carreiraa para o capr icormano 

"ae relacionau a natenat ica . " 

"contabi 1 idade ou financaa." 

"Voce' 6 economca, Has" 

tudo o que compra e de 

qua 1 idade e feito para durar. 

Voce * caracter izado pel a sua 

conduta irrepreensfvel e olrtar 

o*r 10 . 

voce tea mats conhecidoa do que 

"anifloa; aeua verdadeiroa* 

aplgoa sao sua famflia. 

"Coapat ibi 1 idade : Touro. Cancer." 

Aquino. 

"Cores: Preto e tons escuroa." 

SACITA«I0.23.11,21,12 

Voce e us otiniata de naaeimento 

e # divertido e cod ud grands 

senao de hunor . f 
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2 350 DAT* "Voce ten rovitvhaa nan boelipfhaH. 
2360 DATA e Ubios bem ieitos. E aoJre 

2370 DATA doa r 1 na. 

23B0 DATA Vact as veiea fita ipjixoii»du 

2390 DATA ■ nuncd tica nuito tempo aozinno. 

2400 DATA Aa carreiraa para o libriano 

2410 DATA *podem inclmr: cabel eire 1 rn. " 

2420 DATA "«*U*iCl»t». tun." 

2430 DATA "advogado ■ " 

2440 DATA Seu bom senao para elegancia 

2450 DATA da hanonia 49 auaa rouuaa 

2460 DATA pela boa eaeolha das corfta. 

2470 DATA "Compat ibilidade: Atauatm. Ari--s. 



2710 DATA aera nuito organuada. 

2720 DATA "Conpatibilidade: Peixes, Qeneoa. 

2730 DATA Sagitirio. 

2740 DATA "Cor: Ami eacuro.' 

2750 DATA LEAD, 24, 7. 23,8 

2760 DATA AmboB si se*os veatem aa 

2770 DATA roupaa e jiiiaa mala caras e 

2760 DATA oao lncrivelnente vaidosas. 

2790 DATA "Co«o oa leBea. voce pode" 

2B00 DATA ter uma grande caheleira 

2810 DATA dour ad a. 

2820 DATA "vote adora drama, e gosta do" 



2830 DATA passar aeu tewpo livre no 

264 DATA teatro ou cinema. 

2850 DATA Seu 9osto por conidaa fortee 

2S60 DATA * uk peri go para aeu coracio, 

2870 DATA Voce * propenao a ataquea cardiac 

oa, 

28S0 DATA Voce e generoao con aeu ditiheiro 

2890 DATA - Baa nlo deiJia de aer 

2900 DATA prevenido. 

2910 DATA'Carreiraa: ;oalheiro, ator . 

2920 DATA 'profeaaor. lider en alguma func* 

o . " 

29 30 DATA " " 

2940 DATA Sou lar pode eer una grande 

2950 DATA caoa desumda. Umnhoa aSo 

2960 DATA ameaea ao aeu espaeo. 

2970 DATA Toapatlbl.lidade: Cancer. Ariea.' 

2980 DATA "Corea: Ouro e Anibar . _ 

2990 DATA ■ ' 

3000 DATA CANCER, 2 2, 6. 2 3, ? 

3010 DATA "voce * nuito tfmido. eacondendo" 

3020 DATA aeua llndos olhoa 

3030 DATA sob palpebras aubmisaaa. 

3Q40 DATA Voce aempre permanecera preae a 

3050 DATA seua parentestpr mcipalmente 

3060 DATA sua Die) mesmo depoia de caaado.. 

3070 DATA -Voce « normalmente tfmldo. ■*»* 



24S0 
2490 
2500 
2510 
2520 
25 30 
25410 
25H0 
2560 
2S70 
2S*0 
2590 
2600 
2610 
2620 

VI dd 

2630 
2640 

265 
2660 
2670 
2690 
2690 
2700 



DATA EseorplSo. 

DATA -Cores: de ion pastel." 

DATA VtRGEM, 24 . ft . 2 1 . 9 

DATA Voc* e bioocondrlaea « nunca v,n 

DATA a lutjar nenhum sen u«va caixa 

DATA de pilulaa para alguma djoeGW 

DATA "Voce tea urn cot do saudavet." 

DATA ma» nunca efita entente co» sua 

DATA aparencia. 

DATA 'Voce e fast id inso, « sua raaj" 

DATA B«ra 3c»|:r iwpecav* I merit e limpa 

DATA " * 

dat* -voce e ci ■' nature**," 

DATA preatafwlo mult. a dtencio aoa 
DATA detalhes em todr>a os aaptctoo da 

DATA "Carreiraa: bi ol i otecar \ o , " 

DATA 'eataf.tar ico, crl'ico, cientiata" 

DATA ou m*dico. 

DATA VACS provavflmente nan text 

DATA 'rid tditillia muito grande j" 

DATA desordem dejxa voce doe-ite. 

DATA -Uoce « prdtico por natureia.* 

DATA "e. ae trabalhar eo u«i eacritdrio 
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308O 


DATA 


lutana at* a aorta Firs 


3630 DATA 


Voce aprecia aui to a cc-apanfiia 


4170 


DATA 


e gaatara dmheiro cob aua 


3O90 


DATA 


crotejcr Sim faBflia. 


364 DATA 


"de oulras pessoas. eapecialnente 


4180 


DATA 


"caaa, provavelaente coaprando" 


3100 


DATA 


Sua caaa * seu caste 1 a r. sonente 


» 




4190 


DATA 


elet rodoaest i coa . 


3110 


DATA 


araigos Btuico especiala 


3650 DATA 


dagu?laa 4Me nlo interferes no ae 


4200 


DATA 


Eb Julho/Aooato vocS enfrentara 


3120 


DATA 


a freqjuentaa. 


it modo de 


aer . 


4210 


DATA 


u» dilena entre aa prioridadea 


3130 


DATA 


Uoci goataria de viver perto 


3 660 DATA 


"Carreiraa: agougueiro. " 


4220 


DATA 


do trabalbu e da aua faaflia. 


3140 


DATA 


"da aoua - un no, riacho on" 


3670 DATA 


esonrtlat.a- 


4230 


DATA 


■ ■ 


3)50 


DATA 


a beira-nar . 


1680 DATA 


■ . 


4240 


DATA 


Una anizade que coBecara 


3160 


DATA 


"Carrnran: infct-aeire, jardinclr 


3690 DATA 


"suaa r oup,a b sic ouaadas . ' 


4250 


DATA 


en Janeiro pode ae noetrar durado 


o, aarinheiro." 


3700 DATA 


"aeepre justas. maa de deaenhoa" 


uro. 






3170 


BAT* 


"coiinheiro. professor ou fotfigra 


3710 DATA 


o imp lea. 


4260 


DATA 




fo." 






3720 DATA 


"coBpatibi lifted*: Touio. Libra. L 


4270 


DATA 




3180 


DATA 


■ • 


eSc, " 




4280 


•DATA "eb outubro. voce enfrentara ub" 


3190 


DATA 


"Voce ae prende ao paasado, e" 


3730 DATA 


"cor : vernelrio." 


4290 


DATA 


"pertodo de aau huaor . envolvido" 


3200 


DATA 


adora coleclonar ant igu ldades. 


3740 DATA 


. . 


4300 


DATA 


pot uaa anizade paaaageira que 


1210 


DATA 


VocC ten boa meaidna totngrif lea , 


3 7SG DATA 


TOURO.21,4,21 ,5 


4310 


DATA 


deljrara nal coa seufl aaigoa 


3220 


DATA 


"conpatibllidade: LeSo, EacorpiSo 


3760 DATA 


Voce e afetuoao e 


4320 


DATA 


Por auitoa anoa voci teral a 


." 






3 7 70 DATA 


rorjintico. 


4330 


DATA 


vantages de ter ub planet a 


3230 


DATA 


"Corea: Bratico e prata." 


3780 DATA 


■ . 


4340 


DATA 


poderoso regendo sua 


3240 


DATA 


- • 


3790 DATA 


"Woof * czLtidadoaa coa dinfieiro; " 


4358 


DATA 


carrei ra. 


3250 


DATA 


GEMEOS, 22,5,21,4 


380 DATA 


preciaa de geguranca f manceira m 








3260 


DATA 


"voce * do tipo eabelto. e ten" 


aia 










3270 


DATA 


"aeabroa longos e deloadoa." 


3810 DATA 


do que dualquer autre aigno. 


i—i 


n- 


"Li N /^~xr — u — L 1 




3260 


DATA 


■ ■ 


3B20 DATA 


"Eabora aeja ncrmalnente oalno. " 


n 


1 i 


1 IV 11 H « 




3290 


DATA 


"Vote fala pelos cotoveloa, e* 


3830 DATA 


"voce pode Be tornar teMlvel. " 


\ i 


I 




1 1 IL 


f 




3300 


DATA 


podena pasaar m dia inteira 


3B40 DATA 


"eapecialsente se for para defend 


i f 


I 




I J M K 


. j 




3310 


DATA 


falando sonente banal ldades. 


er aeu cOnjuge." 


\ 


1 




,/ t| r 


L J 




3320 


DATA 


Voce * o aaia conunicativo do 


385 DATA 


Sell Temperament o de apreciar as 


i 


1 




tKAv^J *-i 


U 




3330 


DATA 


"lodfaco, reconhecido pelo" 


3860 DATA 


boaa croiHaB t requenteftente O 


V. 


I 


1 


±j^*^^ , t j ~^ 




3340 


DATA 


nodo cam) goata da falar con as n 


387 DATA 


leva a un med i -:-.' para a indicacSo 








So*. 






de una dieta. 








3350 


DATA 


Anboa as gexoa aofres dos nervos 




"Voct pode ae tornar auito poaaee 














388 DATA 








3360 


DATA 


"e lnsDnii, e deven Be precaver' 


a i vo" 










3370 


•:ATA 


contr* a est if i . 


3890 DATA 


"no amor, e eapera que s*ii parcel 




\ g 




3360 


DATA 


"Sua caaa aera aeapre desertar* 


ro' 






M 


3390 


DATA 


vo.e estsra" aeapre viai tan-do un 


3900 DATA 


rejeite o aesto opoato. 






ySx>\*> 


340 


DATA 


v:::mh5 ou ami go. 


3910 DATA 


"Voce £ Diuito eenaual; gosta do" 






» 1 !* u v iIl ^* 


3410 


DATA 


Voce se aent? aufocado nuav 
















3920 DATA 


conlato de lecldoS aedOBOB 






3420 


DATA 


**relacionanenLn maia duradouro." 
















3930 DATA 


contra a pele. 






L. m Slar A^JIIk ^Vj 


3430 


DATA 


"a »"'ita ae prender a un conpanhe 


3940 DATA 


"Carreiraa- arqueoloctiata, banque 






^5TVv^'_j 


iro(a) , " 
344 DATA 


"Carreiraa: jornaliata, vendedor , 


iro, " 








wSr?v 








3950 DATA 


"taicndtiro. eaprealrio de' 








3450 


DATA 


"professor, eacntor." 


3960 OATA 


vendaa. 








3460 


DATA 


. . 


3970 DATA 


"coppat ibilidade : Anea, Capricld 




^V 




3470 


DATA 


"■Cnjnp.it ibi 1 iddde ; Sd.git.dno,* 


rnio .* 








3460 


DATA 


"; "ixes, Virqen , " 


3980 DATA 


"Cores; Azul , rosa." 






f u^\ \^ 1 JT[Lr^^ l 


3490 


DATA 
DATA 


"Cor : amarelo , ■ 
ARIES, 21, 3,20,4 


3990 DATA 
4000 DATA 


En fevereiro, aeu trabalho aer a 




J 




^3S 




3500 




n^pc^ 




3510 


DATA 


"Voce artora aastar dinheiro, " 


4010 DATA 


"maia laolado do due o normal. ' 








3520 


DATA 


oaa col oca auas neceaaidades en p 


4020 DATA 


e voct lera que i mpor auita 






\\ )l*$*p\ 


naeiro lugor. 


4030 DATA 


auto-d i aCLpl ina . 






1/1 


35 10 


DATA 


■ " 


4040 DATA 


"Na primsvera, ter*" 








3540 


DATA 


"Voc* reage ben nas adversidades. 


4050 DATA 


despesaa axtru con 








- 






4060 DATA 


viagena , 








3550 


DATA 


"ten gSmo lorte, mas sabe" 


40 70 DATA 


- ■ 






J^m1$JX\ 


3560 


DATA 


"perdoar con faci 1 idade. " 


4080 DATA 


Voci val aprovertar un longo 






3570 


DATA 


"woe* e f isicamente ativo, e* 


4090 DATA 


"feriado em outubro/Novenbro" 






*Q0.y$p 


35 80 


DATA 


"prefers espories lue fossa prati 


4100 DATA 


aprofundando-ae noa Bistenoa 








car" 






4110 DATA 


doa antigoa inp*noa. 






d+^\*H&**\ 


3590 


DATA 


'. nd i v l d'jd InenLe . 


4120 DATA 


En junho, voce devera" 






3600 


DATA 


"Voc( aofre de dor 4! de cabeca. e 


4130 DATA 


ado tar atltudea: maia s*riaa 








" 






4140 "DAT* 


"diante doa aeua probienaa, dead 






l^^Bt^^^S'NiSx 


3610 


DATA 


"* propensa a aofrer cortea ou co 


e- 








^^^S^^^^r 


n tunftea, " 




4150 DATA 
4160 DATA 


03 cotidlanos at^ 09 maia graves. 
En lunrio vocl trabalhara" duro 






^*^JS 


3620 


UA1A 








^^-^ 
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4360 


DATA 


*37a 


DATA 


4 380 


DATA 


4 390 


DATA 


MM 


DATA 


4410 


DATA 


4420 


DATA 


4430 


DATA 


4440 


DATA 


4450 


DATA 


4460 


DATA 


4470 


DATA 


4480 


DATA 


4490 


DATA 


4509 


DATA 


4510 


DATA 


4520 


DATA 


4530 


DATA 


4540 


DATA 


4550 


DATA 


4 560 


DATA 


4570 


DATA 


4560 


DATA 


4590 


DATA 



Noa <11!i>d! dels ano a voce 
tea eatado anguatiido por ter 
ou nao eacolhido o eaainho certo 
Ea 1988 voce tar* a reapoata, 
Entre Fcvtreiro e Abri 1 voce 
via jars curtas diatincias para 
encontrar seus entea quendos. 

voce provavelBente viajara 
■no final do ano tseteabro/" 
"Outubro) , coa aBigoa." 

voce vai paaaar o a»a de Julho 
"ea cam, e deve toaar" 
cuidado para nao engordar 

BUI to. 

Ub desentendiBento coa 
alguea da faallia pode 
ocorrer ea Harco. 

ua intense- relaclonaaento pode 
"coaecar ei aeteabro, coaecando* 
da algo que para cb outros 
nlo pasaava de uaa paquera . 





4600 DATA Os ho Bens pode a a a ver 

4610 DATA coaproaet idoa cob a figura da 

4620 DATA "ale ea Dezeabro, Baa * nprov»v* 

1" 

4630 DATA que esta aituacJo dure at* Janeir 

o. 

4640 DATA Ho final de 1988 voce pooe 

4650 DATA a char que con<flilfltou ub» posielo 

4660 DATA "de alitor I dade. cob opimoea" 

4670 DATA "Claras * objetivaa." 

4680 DATA voce nao deve ner suite 

4690 DATA siBpalico coa aquelea que nlo 

4700 DATA "o aao ; deve penaar ui pouco" 

4 710 DATA Bala aa voce uho. 

4720 DATA Voci se tornara auito popular 

4730 DATA "no trabalJio ea Janeiro, gracaa" 

4740 DATA a UB4 grande capacldade de cmuni 

cacao. 

4750 DATA ' ' 

4760 DATA t prcivavel uaa grande viegea 

4770 DATA so Mterior ea Beteabro. Toae 

4780 DATA cuidado cob rouboa. 

4790 DATA " ' 

4800 DATA "Sua casa, ea aarco, parecarl" 

4810 DATA ub caapo de batalha. Tente 

4820 DATA "evltar if iraacoea aabiguaa. " 

4830 DATA "que podea ocaaionar ub roapiaent 

o." 

4840 DATA voce paaaara o ae» de Abril 

4850 DATA preocupado coa a decorasSo de 

4860 DATA sua casa. 

4870 DATA " " 

4 880 DATA "Pode surgir ui caoo ea Agoato , " 

4890 DATA aas voce deve toaar cuidado para 

4900 DATA nao aer nea auito doainante 

4910 DATA nea enaoeradaaent* atencioao. 

4920 DATA UB r el acionaaento duradouro 

4930 DATA aurgira coa alguea que coapartilh 

a 

4940 DATA alaiiaa atividade ou interease 

4950 DATA "coa vo>cB, ea Noveabro." 

4960 DATA A poaicao doe planetaa ea Seteabr 

o 

4970 DATA pode oigniflcar alguaa audanga 

4980 DATA 'na sua carreira. que voei plane] 

ava" 

4990 DATA desde o ano passado. 

5000 DATA Voce eatara fi nance Iraaente bea 

5010 DATA "ea 1988, e far! donativoa a" 

5020 DATA inst ltuieSea de caridade que 

5030 DATA cuidaa de idoaos. 

5040 DATA voce eatara envolvido ea ub grand 

e 

5050 DATA "neadclo durante todo o ano," 

5060 DATA a partir de Eevereiro. 

50 70 DATA " " 

5080 DATA "voce se ligara a tantas aasociag 

Bee," 

5090 DATA "particularaente de ensino auperi 

or* 

5100 DATA que talvez esqueca de que 

5110 DATA tea una casa. 

5120 DATA Voce paaaara por ua periods 

5130 DATA "auito roaantico ea seu lar." 

5140 DATA ea Janeiro. 

5150 DATA " " 



5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

ca. 

52S0 

5290 

5300 

5310 

o. 

5320 

5330 

5340 

casa 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 



DATA A parti r de fevereiro coaecara 

DATA ua ano de auita atividade para 

DATA "voce, for a de casa." 

DATA " ' 

DATA Ua roaance pode coaecar no 

DATA "Natal, aas talvei sea " 

DATA atracSo ffsica. 

DATA " " 

DATA "Uaa relacio aais profunda." 

DATA "at« certo ponto frivola. pode" 

DATA 'coaecar ea Junhe , Esta pode" 

DATA aer uaa relaclo ardente e draaati 

DATA A despeito de alguaaa 

DATA "diverginciaa. voce trabalhara" 

DATA "duro, coao fez ano passado. para 

DATA consolidar sua posiclo no trabalh 

DATA voce deve se precaver contra 
DATA 'gaatoa deaneceaaarioB. tanto" 
DATA "aeus coao das outraa pessoaa tia 

DATA "que tendeB a aer eKtravaoantea. " 

DATA Voce He envoi vera con trabalho 

DATA 'de caridade irna proxiroa anoa , " 

DATA oendo boa en aconaelhar aatigoa. 

BATA " " 

DATA Uoc* vai querer viajar ea Julho 

DATA »aa ter* que eaperar por Agoato 

DATA at* ter dinheiro o suficiente, 

DATA " " 

DATA Voce vai aentir que sua faaflia 

DATA ea peso euer que voce faca 
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5460 

5470 

54 BO 

5490 

5500 

a. 

$519 

5520 

5530 

<t« 

5540 

5550 

5560 

5570 

5580 

5590 

o. 

5600 

5610 

5620 

a. 

5630 

5640 

5650 

5660 

5670 

5690 

5690 

5700 

5710 

5710 

5730 

5740 

5750 



DATA curso superior, 

DATA ' ■ 

DATA t poasfvel que sua [aiHia nao 

DATA receba bes us ulgo aeu que 

DATA e conhecido por ser auito otimiat 

DATA " " 

DATA Da segunda aenana de Novenbro 

DATA ate Dezenbro exist? a poaaibilida 

DATA de coaecar una intenaa relagao 
DATA COB una pessoa nua velba. 
DATA Ua roinanticci caso de amor pode 
DATA ' cow car no infcio do ano, aiaa" 
DATA talvez deeiaorone Be voce nao 
DATA deuar de penaar tanto no trabalh 

DATA Da aegunda metade de Junno ate 

DATA nea de agaato voct estara 

DATA preocupado em afirnar sua carreir 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



Finance) raaente voce eatara 
consolidando as ganhoa que 
■obteve ea 1987, fruto de" 
longo e cuidadoao plane jaaento . 
Voc* v«i se notar cada vei 
aais mteressado ea discutir 
cm falar aobre tends 
po 1 It icoa . 

Una viagen ao exterior e 
provavel en rtaio. provavel Ben te 
cuaprmdo ua circuito turiatlco. 





5760 


DATA 


5770 


DATA 


5780 


DATA 


5790 


DATA 


5800 


DATA 


5B10 


DATA 


5620 


DATA 


5830 


DATA 


5840 


DATA 


5850 


DATA 


5860 


DATA 


5870 


DATA 


5680 


DATA 


5890 


DATA 


S900 


DATA 


5910 


DATA 


5920 


DATA 


5930 


DATA 


5940 


DATA 


5950 


DATA 


5960 


DATA 


5970 


DATA 


59B0 


DATA 


5990 


DATA 


60O0 


DATA 


6010 


DATA 


6020 


DATA 


6030 


DATA 


6040 


DATA 


6050 


DATA 



Por ua per (odd de del anas voce 
aentlra dtracao por nudar-se 
para a.: gun lugar parte de agua. 

t provivel que aloua ■eabro de 
sua fanllia se intereaae por 
una religiio ea particular 
ou algo siailar. 
No final de Outubro ua longo 
caso de aaor se lniciara. 



Conproni S90S tfcpartantes aerSo 
assuaidcs pelos homens no coaeco 
"de Outubro, e pelas aulheres" 
no come go de Woveabro. 
Ea junno voce entara se 
"realizando con sua carreira." 
(agendo rauitaa viagena 
relacionadas a seu trabalhn. 
En Outubro voce receberd 
grande soaa ea dmheiro 
fruto d* antigoa negdcios. 

"Por todo eate ano. coao" 
"foi o ano passado, voce" 
eatara falando de sua carreira, 

Ea Outubro/Noveabro voce seri 
una coapanhla apenaa agradavel 



6060 


DATA 


6070 


DATA 


6080 


DATA 


6090 


DATA 


6100 


DATA 


6110 


DATA 


6120 


DATA 


6130 


DATA 


6140 


DATA 


6150 


DATA 


6160 


DATA 


6170 


DATA 


6180 


DATA 


6190 


DATA 


6200 


DATA 


6210 


DATA 


6220 


DATA 


6230 


DATA 


6240 


DATA 


6250 


DATA 


6260 


DATA 


6270 


DATA 


6280 


DATA 


6290 


DATA 


6300 


DATA 


6310 


DATA 


6320 


DATA 


6330 


DATA 


6340 


DATA 








e est an nua estado 

de luiti deapreocupacio . 

Ea L988 voce vai hbspedar ua 

'ango rectfa-divorcLado, ou" 

ua eatudante ea sua casa. 

U* aconteciaento inesperado no 
Veria S8/S9 pode aiqmficar 
una audanca para nova casa. 

Ua romance naseera en seieabro 

dcade que nua atltude 

independent* quanto a for Bar ua 

1 ar nao estraque tudo. 

EKiate a posoibl 1 idade de 

caaaatnto ou infcio de alquaa 

relacao peraanentc ea 

Outubro. 

final de aaio pode ser uaa 

boa epoca para voci audar de 

"eapreqo, se acha que exiate' 

esea neceaaidade . 

Voci pode achar cxualauer troca 

de enpreqo t i nance i raaente 

vantajiosa - e&te pode ser o 

final de uaa era. 

En Outubro/Noveabro voc* 

eatara auito aleore e aocLlval 

uaa en Drieabro deve toaar cuidad 



m 
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6350 DATA pars nao ser muito aandao. 

6360 DATA Na pnaavera voc( vai eatar 

6370 DATA *«« algua lugar auito quente," 

6380 DATA e vai estar « auxto 

6390 DATA bo* coapanhia. 

6400 DATA Voce pode ter que euidar de 

6410 DATA alsuaa genhora idoaa da faallia. 

6420 DATA Han a tibncaeao pode aer aliviada 

64 30 DATA en Ourubro e Novenbro. 

6440 DATA Voce vai aproveitar auito 6 

6450 DATA "Natal . aaa cuidado para nao" 

6460 DATA quebrar um braeo nan feataa. 

64 7 DATA ■ ' 

64S0 DATA BB acrd UU ano his de aaizadea 

6490 DATA do que de caaoa amoroso*. 

6500 DATA " " 

6510 DATA ' " 

6520 DATA U» ronanee de verao pode 

6530 DATA 'acontecer naa firiss, nag" 

6540 DATA amso<. oa parceiroa nao 

655(1 DATA eatarao apa J uonadoa . 

6560 DATA Fevereiro e Abril serSg aesea 

6570 TATA anjnif icwtea para sua carreira 

6580 DATA e voc# pode receber auatnto. 

6590 DATA " " 

6600 DATA Seteobro aera um mea muito 

6610 DATA IrmquilD i manceiramente. 

6620 DATA Voce gastara baatanre em 

6630 DATA 1 jzer . 

6640 DATA "Em aeteahro, una disputa no" 

6650 DATA trahaiho pode o levar a 

6660 DATA qrevE ou deatacar sua 

66711 DATA par 1 1 r 1 pacao . 

6680 DATA Uma viaoen ao exterior e 

6690 DATA am to provavrl no comeco 

6700 DATA de Agosi 

6710 DATA ■ ■ 

6720 DATA Ea junho voce goiara a 

6730 DATA coapannia doa hontena da 

6740 DATA Camilla e relax-iri era caaa - 

6750 DATA ' " 

6760 DATA Em Aqoato voce estara decorando 

6770 DATA o jardin ou coaprantlo 

6780 DATA antiguidadea para sua can*. 

6790 DATA " " 

6800 DATA Ea junho voce pode iniciar um 

6S10 DATA relaclonanento de pura atracao 

6820 DATA "flaica; aentinento de anor a** 

6830 DATA depola de Outubro. 

6840 DATA "EB Outubro, voc* poderi" 

6850 DATA ter una en ansa. 

6860 DATA ■ ■ 

6B70 DATA " " 

6880 DATA "Nos prdxinoa treie anoa, 

6890 DATA"voci aeri capaz de inf luenci ar . " 

6900 DATA "aula luente, as carreirae de" 

6910 DATA auitas peaaoaa . 

6920 DATA Julho * AgoatO serSo aeaes auito 

6930 DATA lapartantes para suas finan^aa. 

6940 DATA Suas aquiaicSea en Agoato aerie 

6950 DATA conpraa 1 nte 1 1 9*ntea - 

6960 DATA Voce deve toaar cuidado cob o 

6970 DATA 'qui [a la ra Julho/Agoato , para" 

6980 DATA nao se meter en apuros. 

6990 DATA ' - 

7000 DATA £ provavel que aurja usa 



7010 DATA grand* vtagen naa dltmas 

7O20 DATA duaa aeaanas de Deteabrc e 

7030 DATA no tinal do ano en geral, 

7040 DATA Ea setenfare voc* trara algua 

7050 DATA estrangei.ro ou foraateiro 

7060 DATA para bub caaa. 

7070 DATA " * 

7080 DATA Voce es-tard auito ativo em 

7090 DATA "Setenbro, e se divtdirii" 

7100 DATA entre seua coaproaissoa aociaia 

7110 DATA e oa afaierea doneattcoa. 

7120 DATA Voce vai paasar a naiot" 

7130 DATA "parte de aetenbro en caaa," 

7140 DATA "curtindo una pai*3o. e vai" 

7150 DATA cauaar entranheia a auitoa, 

7160 DATA 00 hoaena vio se aentir auito 

7170 DATA "roBanticoa no coaeco d* Julho," 

7180 DATA e aa aulherea durante Junho e 

7190 DATA Julho. 

7200 DATA Voce vai paaaar de Kareo a Mato 

7210 DATA "oondo ea ordea ouaft finangaa:" 

7220 DATA voci ae aente oaatando auito 

7J30 DATA lBpulaivaaente. 

7240 DATA Ea deieabro voc* vai comeear 

7250 DATA a crabalhar ou audar sua carreira 

7260 DATA para algunja coiaa que Ihe d» 

7270 DATA aalor liberdade de coaunicagao . 

72BO DATA Aparecerao auitaa oportunidadea 

7290 DATA 'de vlagea ea 1988. especi alment* 

■ 

7300 DATA viagena aereaa 
7310 DATA Uaa viagem ineaperada pode 
7320 DATA "acontecer en Deieabro. e" 
7330 DATA durante eaaa viaqiea pode 

734 DATA aurgir y» roaince. 

735 DATA " " 

7360 DATA Ea junho voce prde ae envolver 

7370 DATA ea tenaao dlscuaHSea na faallia 

7380 DATA ea torno de ua nenbro idoBo 

7390 DATA OU invalldo. 

7400 DATA Ea agoato voce vai gaatar 

7410 DATA baatante dinheiro ea 1 tena de 

7420 DATA luxo para sua caaa. 

7430 DATA " " 

7440 DATA Ua caao secreto que teve 

7450 DATA oeu ynfcio ea Janeiro 

7460 DATA deve acabar ea 

7470 DATA Fevereiro. 

7480 DATA ua roaance pode coaecar no 

7490 DATA *aeu trabalho ea Outubro. aaa" 

7500 DATA a parceiro vai acabar ae 

7510 DATA mtereaaando por uaa pesaoa maia 

velha. 

7520 DAT* Depoia de fevereiro voce 

7530 DATA vai ae envolver con probleaas 

7540 DATA leoaia que afetan sua 

7550 DATA carreira 

7560 DATA Pode aparecer ua oanho 

7 5 70 DATA "extra ea Junho, que" 

7580 DATA voce deve reinvest ir, 

7590 DATA " " 

7600 DATA Agoato vai ser ua litiBO 

7610 DATA "aea para voci ea caaa. e" 

7620 DATA voce ae envolvera ea 

7630 DATA acirradoa debatea polllicas. 

7640 DATA Be voce vai ae audar en 1988 




COMO APERFEIQOAR O PROGRAMA 

Embora seja muito divertido, o pro- 
grama de horoscope apresenta uma se- 
ria desvantagem: nao renova as inter- 
pi-etacdes e previsoes, a nao ser por um 
sorteio muito restrito. Assim, ele "per- 
de a graca" depois de uma ou duas 
consultas. 

Se voce conhece um pouco de pro- 
gramacao BASIC, poreim, podera mo- 
dificar o programa e tornar seu interes- 
se mais duradouro. Eis aqui algumas 
praticas sugestoes: 

— aproveite a ideia adotada em nosso 
programa original e aumente o nume- 
ro de alternativas de interpretacao do 
hordscopo para cada signo. Se voce 
colocar oito ou dez alternativas mais 
curtas para cada signo, e usar o gera- 
dor de niimeros aleatdrios para esco- 
Iher uma delas, diminuira a chance de 
que programa se repita; 

— alem do signo do zodiaco (que cor- 
responds a constelacao que esta no 
ponto mais alto do ceu, no momento 
do nascimento), existe o signo ascen- 
dente (que e a constelacao que esta 
apontando no horizonte no momento 
do nascimento). Inclua-o no programa, 
com conjunto de imerpretacoes cor- 
respondente; 

— armazene os textos de interpretacao 
em um arquivo de disco, separadamen- 
te do programa. Depois que o signo da 
pessoa foi determinado, o texto corres- 
pondents sera carregado na memoria 
e mostrado no video. Voce podera, as- 
sim mudar constantemente os textos, 
sem precisar alterar o programa pro- 
priamente dtto. 



7650 


DATA 


7660 


DATA 


7670 


DATA 


76B0 


DATA 


7690 


DATA 


7700 


DATA 


7710 


DATA 


7720 


DATA 


7730 


DATA 


7740 


DATA 


7750 


DATA 


7 760 


DATA 


7770 


DATA 


77BO 


DATA 


7790 


DATA 


7800 


DATA 


7810 


DATA 


7820 


DATA 


7B30 


DATA 



conaidere cuidadoaanente todas 
"as iapl icacoea , especialmente" 
durante Abt 1 1 c Aooato 
Naa duaa ultiaaa aenanaa de Hdio 
voce vai faier peijuenaa viagena 
para viaitar velhoa aaiQoa- 

Exiate a possi bi 1 idade de una 
viaoem- em Julho con algu*n que 
nao rieceaaar laaente gcu parceiro 

Un anor de verio pode acabar 
se voce tornar-se duiIo 
pogaeaaivo. Voce pode aer 
envoi vi do por algu*n frlvolo. 
-Para aa nulherea. a aaiiade* 
baaeada na figura pater na pode 
tornar-as auito profunda. 
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AVALANCHE: 
COMECA © JOG© 



ROTINA FINAL 



ORDEM DE CHAMADA 



RECOMPENSA, MORTE OU VIDA 



CAMARA LENTA 



INTERRUPCAO 



Na base da encosta, Willie permanece 
em compasso de espera. cenario 
esta completo - com pedras, buracos, 
cobras e mar. Para que o jogo 
comece, falta s6 um comando: "Acao!" 



Ate agora, voce digitou e testou se- 
paradamente as varias roiinas que com- 
poem o videogame Avalanche. Neste ar- 
ligo. fornecemos a rotina final, que eha- 
rna todas as outras na ordem certa e exe- 
cuia o jogo completo. 

Depois de digitar e rodar esta rotina, 
comece a jogar. Cenantente voce se sen- 
tira recompensado por todo o trabalho 
que teve. 

Caso o programa nao f undone ade- 
quadamente, eonfira-o com a listagem 
completa e revisada (veja o proximo ar- 
tigo desta serie). 



A rotina a seguir e o laco principal 
que completa o jogo: 



10 

20 
30 
40 
50 
60 
70 
80 
90 
100 

no 

120 
130 
140 



REM 
REM 
REM 
REM 
REM 
hem 
REM 
REM 
REM 
HEM 
REM 
REM 
REM 
REM 



org 58702 

alp call 59153 

call 58993 

59823 

58882 

58751 
(57336) 



JS0 
160 
]70 
180 
190 
200 
210 
220 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



del a dec a 
jr nz.dela 
djriz delb 
Id a, 254 
in a, 254 
bit 0,a 
jr nz , alp 
ret 



call 
call 
call 
caJ 1 
Id a 
cp 
)p 
cp 

JP z,59652 
dl] Id b.50 
(ielb Id a r 255 



59788 




I 
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Quando essa rotina e o restante do 
programa estiverem na memoria, come- 
ce o jogo digit ando a instructor 

LET L=USR 58576 

Como voce deve ter notado, ela cha- 
ma o endereco do rotulo gbin, que esta 
na origem da rotina de inicializacao do 
jogo, no artigo da pagina 969. 



ORDEM DE CHAMADA 



A rotina principal chama, nesta or- 
■wdem, a rotina de movimentacao de Wil- 
| Jlie, em 59153; a rotina das pedras, em 

58993; a rotina das cobras, em 59823; 

a rotina do mar, em 58882; a rotina da 

nuvem, em 58795, e a rotina das gaivo- 

tas, em 58751. 



RECOMPENSA, MORTE OU VIDA 



Em seguida, a rotina verifica a cha- 
Imada variavel da morte. Ela e transfe- 
Irida de 57336 para o acumulador e com- 
Iparada com 1 . Se este for o seu valor, 
la instrucao jr z manda o processador pa- 
Ira a rotina da recompense, no endereco 
159788. Essa rotina incrementa o escore 
"e coloca uma nova tela. 

O contetido do acumulador c entao 
lcomparado com 2. Se ele contem esse 



valor, o processador e mandado para a 
rotina da morte, no endereco 59652. Es- 
ta e a rotina que enterra Willie e encer- 
ra a pariida. 



CAMARA LENTA 



Se o processador fosse instruido s6 
para executar repetidamente a rotina fi- 
nal, a cada vez ele chamaria todas as ou- 
tras rotinas na memoria, e o jogo seria 
tao rapido que se tornaria impratieavel. 
Assim, para tornar o movimento mais 
lento, dols lacos sao construidos, o que 
atrasa o processador em dois centesimos 
de segundo. Pode nao parecer muito, 
mas, considerando-se que a rotina e cha- 
mada seguidamente, irata-se de um tem- 
po significativo. 

B e earregado com 50, e A, com 255. 
A seguir, o conteudo de A e decremen- 
tado. A instrucao jr m manda o proces- 
sador para o laco dela 256 vezes, para 
que A seja decrement ado ate 0. 

A instrucao djnz decremenia o con- 
teiido do registro B e f az o processador 
voltar e carregar A com 255 de novo. Is- 
so e feito ate que B acabe sendo reduzi- 
do a 0. Portanto, o laco externo e exe- 
cutado cinqiienia vezes, e o interno, 255 
x 50 vezes. 



O registro B contem o valor 50 ape- 
nas quando o jogo comeca, A medida 
que Willie recupera seu lanche, um no- 
vo valor e colocado no endereco ocupa- 
do por 50 na instrucao Id b. Se voce vol- 
tar ao programa dos premios, vera que 
o valor nesse endereco e earregado em 
A, decrernentado e colocado de volta em 
B cada vez que Willie recupera um item 
do seu lanche. Essa operacao resulta, 
efetivamente, em uma alteragao no pro- 
grama — ou seja, uma rotina altera ou- 
tra rotina. Tal expediente so e recomen- 
davel quando seus efeitos forem total- 
mente controlados. 

O processador executara o laco de 
atraso uma vez menos, acelerando o jo- 
go em cerca de 90 microssegundos. 



F0RA DO LACO 



Como todo bom programa, estetam- 
bem oferecc ao usuario a alternativa de 
interromper a execucao, sem ter que des- 
ligar o computador e perder tudo o que 
esta na memoria. 

Neste ponto do programa, precisa- 
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mos verificar se a tecla < BREAK > foi 
pressionada. Para isso, usamos o co- 
mando in. Se < BREAK > nao foi pres- 
sionada, a instrucao jr nz, alp faz o pro- 
cessador iniciar o laco principal outra 
vez. Se foi, o processador encontra a 
instrucao ret e volta para o BASIC. 



O programa a seguir e o laco princi- 
pal que completa o jogo. 
10 ORG 20932 



20 


ALP LDA 15 


30 


STA 18258 


40 


CLB 1B261 


SO 


JSR ELB 


60 


BLP JSR MAN 


70 


JSR BAR 


80 


JSR SNK 


90 


JSR SEA 


100 


JSR MOVSUN 


110 


LDA 1B252 


120 


CMPA |1 


130 


LBEQ RWD 


140 


CMPA |2 


150 


LBEQ DIE 


160 


DLL LDB |100 



170 


DEL CLRA 


180 


DELA DECA 


190 


BNE DELA 


200 


DECB 


210 


BNE DEL 


220 


JSR 41409 


230 


CMPA #3 


240 


BNE BLP 


250 


RTS 


260 


MOVSUN EQU S4D0F 


270 


ELB EQU S4B59 


280 


MAN EQU S4DBE 


290 


SNK EQU $5178 


300 


SEA EQU S4CDE 


310 


RWD EQU S50P1 


320 


DIE EQU S5050 


330 


BAR EQU 34045 



Carregue a parte ja digitada de A va- 
tanche e monte esse programa no topo. 

10 ORG 19572 

20 JMP ALP 

30 ALP EQU S51C4 

Tecle a instrucao: 

EXEC 194 26 

e o jogo ira comecar! 




PREPARANDO A ROTINA 



A e carregado com 5, valor armaze- 
nado em 18258, para ajustar o atraso do 
sol. A posicao de memoria 18261, que 
com em a variavel do salto, e carregada 
com 0. Garantimos, assim, que Willie 
nao apareca saltando na lela. 

O processador vai para a rotina ELB 
e define os bits necessarios para os jii- 
veis superiores do jogo. Segue, entao, 
para a rotina MAN, que cuida do mo- 
vimento de Willie e, em seguida, salta 
para BAR, SNK, SEA e MOVSUN — 
rotinas que movimentam, respectiva- 
mente, a pedra, as cobras, o mar e o sol. 




O conteudo da variavel morte, em 
18252, e carregado no acumulador e 
comparado com I . Se seu valor for igual 
a I, Willie conquistou urn premio. 
LBEQ faz o processador executar urn 
longo desvio para a rotina que oferece 
a Willie sua recompensa. 

Se a variavel morte nao for igual a 
1, CMPA #2 verifica se seu valor e 2. 
A presenca desse niimero indica que 
Willie esta rnorto — o processador se 
desvia entao para a rotina DIE, que to- 
ma todas as providencias necessarias pa- 
ra os funerais. 



ROTINA DE ATRASO 



B e carregado com 100, funcionan- 
do como contador para o maior laco de 
atraso. Note que a posicao de mem6ria 
ocupada por 100 quando o programa e 
montado — S51EE — equivale ao byte 
decrementado na rotina do escore. 

A e apagado e decrementado, o que 
lorna seu conteudo, 255 igual a -1 na re- 



presentacao binaria. A instrucao BNE 
verifica se A chegou a 0; se ainda nao 
chegou, e novamente decrementado. 
Caso contrario, o processador sai fora 
desse laco. Em seguida, decrementa B 
e salta para o laco interne, onde A e de- 
crementado. Isso e feito ate que B tenha 
chegado a 0, 

Em outras palavras: no inicio, o pro- 
cessador fica no laco 256 x 100 vezes, 
para tornar a execucao mais lenta. Po- 
rem, quando Willie consegue uma re- 
compensa, o jogo se acelera, pois o pro- 
cessador fica nesse laco apenas 256 s 
99 vezes, ou 256 x 98 ou 256 x 97 e 
assim por diante. 



FORA DO LACO 



Para examinar o teclado, saliamos 
para a sub-rotina em 32774. Verificamos 
entao se a tecla < BREAK > foi pres- 
sionada, comparando o valor recebido 
no acumulador com 3. 

Se a tecla nao foi pressionada, a ins- 



CODIGODEMAQUINA 49 



111(1 



trucao BNE volta para dar prossegui- 
mento ao jogo. Caso contrario, o pro- 
cessador continua, encontra RTS e re- 
torna para o BASIC. 



FECHE CIRCULO 



Acrescen tamos urn ultimo detalhe ao 
programa. Na rotina que seleciona a tela 
apropriada e ajusta o escore havia, ori- 
ginalmente, um RTS e duas instrucoes 
NOP. Elas foram usadas para reservar 
o espaco em que colocariamos uma ins- 
trucao de salto, que iria funcionar quan- 
do o jogo fosse executado pela primei- 
ra vez. Nao podiamos introduzir essa 
instrucao antes de escrever a rotina de 
acionamento. Agora que o programa es- 
ta pronto, montamos um JMP ALP na- 
quele endereco. Com isto, fechamos o 
circulo, completando Avalanche, nosso 
videogame em Assembler. 



20 A=USR{0) 
30 END 



O programa a seguir e o laco princi- 
pal que completa o jogo: 



10 


org 54101 


20 


jg call 54603 


30 


call -11136 


40 


call 55564 


50 


call -11318 


60 


call -11266 


70 


call -11380 


SO 


Id a. (-5201) 


90 


cp 1 


100 


jp z.55506 


110 


cp 2 


120 


jp z.55334 


130 


Id b.50 


140 


atr Id a.255 


150 


dl dec a 


160 


jr nz.dl 


170 


djnz atr 


180 


Id a. 7 


190 


call 321 


200 


bit 4. a 


210 


jr nz , jg 


220 


ret 


230 


end 



Quando essa rotina e o restante do 
programa ja estiverem na memoria, de 
inicio ao jogo executando o pequeno 
programa BASIC: 

DEFUSR= -11681 




Como voce deve ter notado, esse pro- 
grama chama o endereco inicial da ro- 
tina que inicializa o jogo, publicada no 
artigo da pagina 969. 



0RDEM DE CHAMADA 



O laco principal chama, nesta ordem, 
a rotina de movimentacao de Willie, em 
54603; a rotina das pedras, em -1 1136; 
a rotina das cobras, em 55564; a rotina 
do mar, em-1 1318; a rotina da nuvem, 
em -1 1266, e a rotina das gaivotas, em 
-11380. 



PREMI0. MORTE OU VIDA 



Em seguida, a rotina verifica a cha- 
mada variavel da morte. Ela e" transfe- 
rida de- 5201 para o acumulador ecom- 
parada com I . Se este for o seu valor. 
a instrucao jp i manda o processador 
para a rotina da recompensa, no ende- 
reco 55506. Essa rotina aumenta os pon- 
tos de Willie e seleciona um m'vel maior 
de dificuldadc. 

O conteudo do acumulador £ compa- 
rado com 2. Se ele contem esse valor, 
o processador 6 mandado para a rotina 
da morte, em 55334. Essa rotina enter- 
ra Willie e encerra a partida. 



CAMARA LENTA 



Se instruissemos o processador para 
executar continuamente esse laco, a ca- 
da volta ele chamaria todas as rotinas 
da memdria com crescente velocidade, 
tornando o jogo impraticavel. Para tor- 
nar a execucao mais lenta, montamos 
dois lacos de atraso, como ja fizemos na 
rotina da morte. 




49 CODIGODEMAQUINA 49 



B e carregado com 50, e A, com 255. 
A seguir, o conteiido de A e decremen- 
tado. A instrucao jr rtz faz o processa- 
dor continual* a decrementar A, no la- 
co dl, ate que seu valor seja 0. 

A instrucao djnz decrementa o con- 
teiido do registro B e faz o processador 
voltar ao rotulo atr e carregar A com 

255 de novo. Isso e feito ate que B se 
reduza a 0. Port ant o, o laco extern© e 
exeeutado cinqiienta vezes, e o laco in- 
terno, 255 x 50 vezes. 

O registro B contem o valor 50 so 
quando o jogo comeca. A medida que 
Willie recupera seu lanche, um novo va- 
lor e colocado no endereco ocupado por 
50 na instrucao Id b. Se voce voltar a ro- 
tina do escore, vera que o valor nesse en- 
dereco (54133) e decrementado cada vez 
que Willie recupera uma parte de seu 
lanche. Essa operacao resulta, efetiva- 
mente, em uma alteracao no proprio 
programa — ou seja, uma rotina altera 
outra rotina. Esse expediente so e reco- 
mendavel quando seus efeitos forem 
controlados. 

Diminuindo o valor carregado em B, 
o processador executara o laco interno 

256 vezes menos, acelerando o jogo. 



F0RA 00 LACO 



Como todo bom programa, este tam- 
bem oferece ao usuario a alternativa de 
interromper a execucao, sem ter que des- 
ligar o computador e perder tudo o que 
esta na membria. 

Neste ponto do programa, pre- 
cisamos ver se < STOP > foi pres- 
sionada. Essa operacao e identica a 
que executamos para checar se M 
ou N foram pressionadas na roiina 
de movimentacao de Willie. 

O mimero 7 e carregado no acu- 
mulador e a rotina 321 da ROM e 
chamada. O mimero em A corres- 
ponde a linha da matriz do teclado 
na qual esta a tecla que desejamos 
verificar. Se alguma tecla dessa linha foi 
pressionada, a rotina 321 coloca o va- 
lor 1 no bit do acumulador correspon- 
dente a ela. 

A instrucao bit 4,a examina o bit 4 
do acumulador, que corresponde a te- 
cla <STOP>. Se ela nao foi pressio- 
nada, a instrucao jr nz, jg faz o proces- 
sador reiniciar o laco principal, jg. Ca- 
so contrario, o processador encontra a 
instrucao ret e volta para o BASIC. 
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m 



mA 




BJET8V0 DO JQGO 
" ROLO E A TINTA 



SOMA DE VERIFICACAO 
NfVEIS DE DlFICULOADE 



ESCORE 






Este divertido jogo 4 um bom treino 
para as pin tores "de fim de semana" . 
Manejando o rolo, eles devem impedir 
que a tinta escorra pela parede 
e manche seu precioso carpete... 



NTanchar o carpete de tinta e um dos 
pesadelos dos pintores domesticos. Eis 
aqui uma boa oportunidade para que 
aprirnorem sua tecniea de trabalho e dei- 
xem de fazer tanta sujeira e provocar 
tanta confusao na casa. 

O objetivo do jogo e impedir que a 
tinta, que escorre pela parede (a tela), 
chegue ate o chao (linha inferior da se- 
ta). Para isso, voce deve movimentar um 
rolo de pintura (um sinal grafieo hori- 
zontal, na tela), usando as tedas de con- 
trule do cursor. 



VEHSOES DO PflOGRAMA 



O programa e apresentado em duas 
oes: uma para os microcomputado- 
res compativeis com a linha Sinclair 
Spectrum (TK-90X), e OUtra, para os da 
linha TRS-Color. Ambas utilizam c6di- 
go de maquina, para que os ealeul- 
jam efetuados com a rapidez necessaria. 

Os programas em ccidigo de maqui- 
na estao incluidos no programa em BA- 
SIC, na forma de listagens num 
decimais, deniro de linhas DATA. O 
programa de carregamento ve se os co- 
foram digitados corretamente, por 
meio de somas de verificacao (check- 
sum). Apesar disso, convem gravar o 
programa em fita ou disco antes de usa- 
lo, pois um $6 c6digo errado podera da- 
nificar o conteiido da memoria. 



1 CLEAR 28761: GOSUB 100 
5 CLS : PRINT AT 8, 2 ; "DIGIT E 
NIVEL DE DIFICULDADE"'TAB 8 

;*<!> MUITO FACIL"-TAB fl;"<2 
> FACIL"'TAB 3:"<3> NORMAL" ' 
TAB B;"<4> DIFICIL" * TAB 8;"< 

i> IMPOSSTVEL" 



6 LET DS=INKEV$: IE DS<"1" 
OH DS>*5" THEN GOTO 6 

7 POKE 28951. ( (D3-"l")*200) + 
((D$= ,, 2")*175) + ((DS-"3")*eO) 
+ ( {D$="4")*40)+ (05= "5") 

10 BORDER 0: PAPER 7 : INK 2: 
CLS : LET aS"'" : FOP n=l TO 
32: LET aS=a$+" »: NEXT n 

14 POKE 2895 3.0: FOR n-i TO 4 
; PRINT PAPER 2;aS;: NEXT n 

15 FOR N = 19 TO 21: PRINT 
PAPER 6; AT N , ; A$ : NEXT N 

16 PLOT 0,14 3: DRAM 255.0 
20 RAND USB 28672: RAND USR 
28702 

40 PRINT AT 12,7; FLASH 1; 
PAPER 5; INK ; " F I M D E 

J O C> O " ■ ' FLASH jAT 14,7 
; PAPER 7;"PLACAR FINAL ";: 
LET B$*"": FOR N- 28945 TO 
28950: LET B$=B$+CHR$ (PEEK N 
) : NEXT N: PRINT BS 
45 FOR N=l TO 500: NEXT N 
50 IF INKEY$="" THEN GOTO 50 
60 RUN 5 
100 LET L=500: RESTORE L: FOR 
N=28672 TO 28961 STEP 8 
110 LET T=0: FOR D=0 TO 7: 
READ A: POKE N+D.A: LET T^T+A : 
NEXT D 

120 READ A: IF AOT THEN 
PRINT "ERRO NOS DADOS DA LINHA 

" : L : STOP 
130 LET L"L+10: NEXT N : RETURN 

500 DATA 33.34,113.6,0.62.32, 

119,399 

510 DATA 35,16,252,33,128,100, 

34,32,630 

520 DATA 113.33.48,48,34.17, 

113,34.440 

530 DATA 19,113.34,21,113,201, 

205,228,934 

540 DATA 112,89.22.0,33.34,113 

,25,428 

550 DATA 126,60,254,156,200, 

245,229,205.1^: 

560 DATA 176,34,209,193,245, 

126.254,255,1492 

570 DATA 40.2.120.18.241.254,0 

,71,746 

580 DATA 62,128,40,4,203.31,16 

,252,736 

590 DATA 70.176.119,58,25.113, 

214,64,839 

600 DATA 50.25,113,194,194,112 

,237,75.1000 

610 DATA 32,113,62,0,33.26.113 

, 197,576 




620 DATA 205,214,112,193,62. 

223.219.254,1482 

630 DATA 245,203,31,203,31.48, 

16,203,980 

640 DATA 31,48,15,203,31,48.14 

.203,593 

650 DATA 31,48,13,241,195.156. 

112,12,808 

660 DATA 24,7,4,24.4,5,24.3.93 

670 DATA 13,241,121,254,240.48 

,13,120,1050 

680 DATA 254.150,48,8,254,32. 

56.4.B06 

690 DATA 237,67,32,113,237.75, 

32,113.906 

700 DATA 197,33,29.113,205,214 

.112,193. 1096 

710 DATA 121,230,248.79,89,22, 

0.3 3.B22 

720 DATA 34,113.25.72,6.24.126 

,185,585 

730 DATA 32.5,61,119,205.252, 

112.35.821 

740 DATA 16.244.42.23.113.45, 

32.253,768 

750 DATA 37.242.197,112.62.127 

.219,254.1250 

760 DATA 20 3, 31 .21 B, 30.112.201 

,229,120,1144 

770 DATA 205,176,34,235,225.1, 

3,0,879 

780 DATA 237,176,235,201.42, 

118,92,237, 1338 

790 DATA 91,120.92,25.237,90. 

84.93,832 

BOO DATA 41.41.25.41,41.41,25. 

34.289 

810 DATA 118,92,76,201.2.13,245 

.17,22.984 

820 DATA 113.26,60,254.58.32.6 

,62.611 

830 DATA 46,18,2 7.24.244.18. 

241.209.829 

840 DATA 201,48.43.48.48.48.48 
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,200,689 

850 DATA 0.64.0.0.0.255.2 55. 

860 DATA 128,100,36.36,37,37, 
15,444 

O jogador controla o rolo por meio 
das teclas V, U. I e O. O programa em 
codigo de maquina e responsaAel pelo 
movimento do rolo e dos pingos de tin- 
ta. alem de cuidar do cscore (numero de 
porno;, marcados). 

No programa em BASIC, a linha 1 
reserva espaco para o programa em co- 
digo de maquina, por intermedio do co- 
mando CLEAR, e chama a rotina que 
comeca na linha 100. Esta ie os cddigos 
numericos correspondentes ao progra- 
ma em linguagem de maquina e os co- 
loca na memoria reservada (usando co- 
mandos POKE, na linha 110). 



SOMA DE VERIFICACA0 



.oma de verificacao e armazenada 
na variivel T, que e ehecada a cada oi- 
10 cddigos peta linha 120 do programa. 
I linha informa se o valor da soma 
e igual ao primeiro numero lido na li- 
nha DATA. Em caso afirmativo, o pro- 
grama continua ate ler lodos os codigos. 
que estao armazenados da Mima 500 a 
linha 860. 

a 7 inkializam o nivel de 
nldade — que pode ser facil, razoa- 
vdmente facil, normal ou dificil — e eo- 
locam o valor correspondente de atraso 
de tempo na» iocacoes absolulas do pro- 
grama em codigo de maquina, por meio 
de comandos POKE. 

linhas 10 a 16 montam a tela gi 4- 
fica e a 20 chama a rotina em linguagem 
de maquina. As linhas 40 a 60 finalizam 
o jogo e imprimem o escore. 



10 CLEAR 2Q0,15799:CLS 

20 FOB K-0 TO 13:T«0;F0R J=0 TO 

25:READ A:T-T+A 
30 POKE 1580Q+K*26+J.A 
40 NEXT:READ A: IF TOA THEN PRI 
NT"ERR0 NOS DADOS DA LINHA": 100 
0+K*10:END ELSE NEXT 
50 CLS: PRINT 62,"ESCOLHA NIVEL 
DE DIFICULDADE" 
60 PRINT §200,"! - FACIL": PRINT 

6232. "2 - SIMPLES": PRINT 6264. 
"3 - MEDIO" :PRINT 6296, "4 - DIF 
ICIL": PRINT 6328, "5 - IMP0S5IVE 
L" 

70 AS-INKEY3:IF A$<"1" OR AS>"5 
" THEN 70 

60 LV=VAL(A$) :POKE 16162, 6-LV:P 
OKE 16164. 128+64MLV>2) : POKE 16 




A cinla escorrendo na tela do TRS-Color. 



167,RND(256) -1 

90 PMODE 3,1:PCLS 2: SCREEN 1,0 

100 COLOR 4:LINE(0,0)-(2255,0) . 

PSET:C0L0R 3 ; LINE (0 , 168)- ( 255. 1 

91) .PSET.BF 

110 DEFUSRO-15800:S-USRO(0) 

120 SC-0:CLS:FOR K-5 TO STEP 

-1:SC-SC*256+PEEK(16173+K) : NEXT 

130 PRINT 68, -VOCE GANHOU";SC 

140 PRINT 616i."QUALQUER TECLA 

PARA RECOMECARVAS-INKEYS 

150 IF INKEYS*"" THEN 150 ELSE 

50 

1000 DATA 127.63.33,127.63.37.7 

9.95.25 3.63.45,2 5 3,63.47,25 3,63 

,49.142,19,14.191.63.51.158.186 

,48.2585 

1010 DATA 137.1,0,191.63,41,48, 

137.19,223,191,63,43,204,0.128. 

142.6 3,53,167,128,90,38,251.141 

.29.2591 

1020 DATA 182.63,37.176.63.36.1 

83,63,37.38.243.141,119,23.0.14 

5.190.63,34.48,31,38.252,125.63 

1030 DATA 39,226,57,206.63,53,1 

41,59,196,127,52.4.51,197,166,1 

96,198,32,61,211.166.31.1,53.4, 

31.2641 

1040 DATA 152.84.64.58.230,132, 

38 . 1 , 57 , 1 32 , 3 . 64 . 1 39 , 3 , 1 98 . 3 , 74 

.43.4.88.88,32,249.234.132,231, 

2553 

1050 DATA 132,108.196.166,196,1 

29.168,37.5.134,1.183,63 33.57. 

190,63.38.79,95,179,63,38.36,2. 

48.2439 

1060 DATA 31,179,63,38.36.2,48. 

31,195,255.254.36.2,46,1,52,16, 

163,225.37.3,131.0,1.253,63,216 

3 

1070 DATA 38,57,134.247,127,63, 

40,12 0.63,40,183,255,2.246,255. 

0,193.247.38,3.124,63,40,26,1.7 

3,2678 

1080 DATA 129,127,34,233,57,190 

, 63. 51. 198. 3, 134. B5, 167, 128, 90, 

38,251.190.63,51.116,63,40,36,1 

0.31,2578 

1090 DATA 16.203,3,196.31.39.2. 

48.1,116.63.40.36.8,31,16.196,3 

1.39,2.48,31,116.63,40,36,1451 



1100 DATA 8,188,63,43.34,3.48,1 
36,32.116,63,40,36,14,188,63,41 
,37,9,48,136,224,52.16,141,13,1 

792 

1110 DATA 53,16,191,63.51,198,3 

,111,128,90,38,251,57,31.16,142 

.63,53,14 7.186.52.4,196,31.88.8 

8.2347 

1120 DATA 46,133.53,4.88, 73,88, 

73.31,88.7 3.137,92.134.12,225,1 

32.38.4,106.132,141,6.48,1.74.2 

34 

1130 DATA 38,243,57.52.22,142.6 

3,45,198,6,26,1,166.132.137.0,1 

67.128.90.38.247,5 3.150.1.3,0.2 

205 

O jogador controla o rolo de lima pe- 
las teclas de movimentacao do cursor 
(flechas). O programa em codigo de ma- 
quina e rcsponsavel pelo movimento do 
rolo e dos pingos de tinta. alem de cui- 
dar do escore (numero de pontos mar- 
cados). Ele verifica se alguma das teclas 
de controle do cursor esta sendo pres- 
sionada e desloca o rolo de tinta na di- 
recao indicada. Se o jogador consegue 
deslocar urn pingo de tinta, urn atraso 
dc tempo e imroduzido e o escore e au- 
mentado, 

No programa em BASIC, a linha 10 
reserva espaco para o programa em c6- 
digo de maquina atraves do comando 
CLEAR. As linhas 20 a 40 leem os cd- 
digos numericos correspondentes ao 
programa em linguagem de maquina e 
os coloca na memrjria reservada (usan- 
do comandos POKE, na linha 30). 

A soma de verificaclo e armazenada 
na variavel T, que e ehecada pela linha 
40 do programa. Essa linha inforn 
o valor da soma c iguai ao primeiro nii- 
mero lido na linha DATA • afir- 
mativo, o programa continua ate ler to- 
dos os codigos, que estao armazenados 
nas linhas 1000 a 1130. 



NIVEL DE DIFICULDADE 



A linhas 50 a 80 inicializam o nivel 
de dificuldade — que pode ser simp 
medio, dificil e "impossivel" — ecolo- 
cam o valor correspondente de atraso de 
tempo nas Iocacoes absolulas do progra- 
ma em codigo de maquina, por meio de 
comandos POKE. 

A linha 100 monta a tela grafica e 
a linha 110 chama a rotina em lingua- 
gem de maquina. 

As linhas 120 a 150 finalizam o jogo 
c imprimem o escore. A seguir, o pro- 
grama pergunta ao jogador se ele dese 
ja parlicipar de mats uma rodada. 



" (^ 
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CONVSRSAO DO FORMATO 



CQMPRESSAO DE DATAS 
TESTE DE VALIDADE 

DATA CORRIDA 

INTERVALO ENTRE DATAS 



A armazertagem e a manipulacao de 
datas em BASIC apresentam probfemas 
nem sempre faceis de resolver. 
Com as retinas aqui fornecidas. voce 
simplificara baslante sou trabalho. 

Mais cedo ou mais tarde, o progra- 
mador vai ter que trabaihar com calcu- 
los de datas. Como no BASIC nao ha 
nenhuma funcao que facilite a realiza- 
cao desses calculos, a tarefa podera en- 
volver algumas complicacoes, devido a 
propria irregularidade do sistema de da- 
tacao em uso — meses com niimero di- 
fereme de dias, anos bissextos etc. 

Os principals problemas de calculo e 
manipulacao de datas, que surgem so- 
bretudo em programas para aplicacoes 
financeiras e/ou comerciais, sao: 

— representacao interna de datas na 
memdria do computador; 

— - checagem da validade de uma data; 

— determinacao do dia da semana pa- 
ra uma data e do niimero de dias com- 
preendido entre duas datas; 

— calculo de data corrida a partir de 
certa data de calendario. 

Mostraremos em INPUT a.[gun$ tru- 
ques que simplificam essas manipu- 
lates. 



ARMAZENAGEM DE UMA DATA 



Ha diversos tipos de notacao para da- 
tas. A mais com urn e a data gregoria- 
na, ou data de calendario, que tern a for- 
ma: dia/mes/ano (D/M/A). 

Essa data pode ser armazenada no 
micro de diferentes maneiras. A mais di- 
reta usa o formato de oito bytes: 

DD/MM/AA 

Em consequencia, deve ser armaze- 
nada em uma variavel literal (alfanum£- 
rica), e nao em uma variavel numerica, 
ocupando, ao todo, oito bytes. 

Podemos reduzir o espaco para a ar- 
mazenagem suprimindo os sinais de se- 
paracao (barras ou pontos), ja que £ 
possivel inseri-los novamente no mo- 
mento de exibir ou imprimir uma data. 
Temos, entao, o formato de seis bytes: 



DDMMAA 

Armazenando as datas como s§o vi- 
sualizadas, e impossivel ordena-las. Co- 
locar urn conjunto de datas em ordem 
ascendente, por exemplo, resultara em 
uma enorme confusao: uma data como 
010187 vira antes de 011286. 

Por essa razao, £ preferivel usar o 
formato sueco, ja adotado universal- 
mente em sistemas de computagao; 

AAMMDD 

No exemplo acima, 861201 aparece- 
ri, corretamente, antes de 870101. 

Eis aqui duas rotinas para converter 
uma notacao em outra. A variavel N$ 
representa uma data em formato nor- 
mal, de oito bytes; IS, uma data em for- 
mato invertido, de seis bytes. 

t'onversan de Formato normal para for- 
mato invertido: 

QDMS][£] 

1000 IS=MID3(NS,7,2)+MIDS{NS,4. 
2)+MIDS{N$,l,2) :RETUftN 



1000 LLT IS"=N$(7 T0)+N3<4 TO 5 
)+NS(l TO 2} 
1010 RETURN 

Lembre-se de dimensionar N$(8) e 
1$(6) no comeco do programa. 

Conversao de Formato invertido para 
formato normal: 

QQ MIX 031 

1100 NS-MIDS{I3.S)+"/"+MIDS(I3. 
3,2)+V"+MIDS (13,1,2) ; RETURN 



1100 LET NS-I$(5 T0)+V"+IS(3 
TO 4)+"/"+I3(l TO 2) 
1110 RETURN 

Seis bytes podem significar muito es- 
paco de memdria para ccrtas aplicacoes, 
por exemplo, para um banco de dados, 
em que cada registro deve reservar 
espaco para uma ou mais datas. 

Podemos reduzir ainda mais o espa- 



co de memdria ocupado por uma data 
de calendario, mas isso envolve algumas 
manipulates que codifieam a data, im- 
pedindo sua exibicao imediata (sem a 
previa decodifieacao). 

Um dos formatos codificados de da- 
tas e o formato de tres bytes: 

CHRS (AA) +CHRS (MM) +CHRS (DD) 

A data sera armazenada em uma ca- 
deia literal de tres bytes, no formato sue- 
co; mas nao podera ser impressa ainda. 
Seguem-se duas rotinas que realizam as 
conversoes. Nelas, D$ e uma variavel li- 
teral com uma data em oito bytes, e CS, 
uma variavel com uma data em forma- 
to comprimido de tres bytes. 

Compressao de oito para tres bytes: 

1200 CS=CHR3(VAL{MID3(D3,7.2) )) 
+CHR5 (UAL (M1D$ (DS ,4,2))) +CHR3 (V 
AL(MID$(DS.1.2))) : RETURN 



1200 LET CS=CHR3 UAL DS < 7 TO 8) 
+CHH3 UAL DS(4 TO 5) + CHRS UAL 

D${1 TO 2) 
1210 RETURN 

Nao se esqueca de dimensionar CS{3) 
e DS(8), no comeco do programa. 

Descompressao de tres para oito bytes: 

1300 DS-R1GHT$(STR3(ASC{MIDS(CS 
, 2) ) ) , 2) +V+RIGffTS (STRS (ASC (MI 
DS(CS,3)) ) ,2)+"/"+RIGHTS(STRS(A 
SC(CSJ) ,2) r RETURN 



CODE CS(3 TO 3 
TO 2>+STRS COD 



1300 LET D3-STR3 
)+STR3 CODE CS( 2 
E C3(l TO 1) 
1310 RETURN 

Essa tecnica tern so uma desvanta- 
gem: na armazenagem de datas compri- 
midas em tres bytes em arquivos sequen- 
ciais (fita ou disco), a transmissao sera 
truncada sempre que surgir um dia 13 
(pois CHRS(13) e o codigo ASCII para 
fim de linha). Isto nao ocorrera com ar- 
quivos de acesso aleatorio. 



PROGRAMACAOBAi 



Nada impede que se armazene uma 
data de calendario em formato numeri- 
co _ o que e ate desejavel em certas 
aplicacoes. Porem sera desperdicio de 
memoria, mesmo que usemos variaveis 
inteiras (que ocupam so dois bytes de es- 
paco cada no TRS-80, TRS-Color, Ap- 
ple, TK-2000 e MSX; o ZX-81 e o Spec- 
trum nao oferecem essa possibilidade). 

A armazenagem de uma data de ca- 
lendario em tres variaveis inteiras — por 
exemplo, D, M e A — ocupara oito 
bytes. Podemos armazeni-las em uma 
variavel de precisao simples: 

DT ■ A * 10000 + M * 100 + D 
Veja os exemplos seguintes: 
Data DT 



01/01/47 
31/12/87 



470.101 
871.231 



Note que DT nao pode ser uma va- 
riavel inteira, pois esta nao aeeitaria os 
numeros maiores. Assim, ficamos, de 
novo, com seis bytes por data. 



VALIDADE DE UMA DATA 



Uma boa pratica de programagao 
consiste em testar a validade da data de 
calendario que loi entrada pelo teclado, - 
checando separadamente o dia, o mes 
e o ano. 

Eis aqui uma rotina simples para teste 
de uma data entrada no formato de oi- 
to bytes (variavel D$): 

1500 E=0:MS-="312931303130313130 

313031* 

1510 IF LEN(DS><>8 THEN E-1:RET 

URN 

1520 M-VALCMIDSCD5.4.2)) :IF M<1 

OR MM 3 THEN E-l : RETURN 

1530 D-VAL(MID$(D$,1.2)) :IF D<1 

OR D>UAL CMIDS (MS , (M-l) *2 + l , 2) ) 

THEN 1590 

1550 RETURN 



1500 LET MS="312931303130313130 

313031" 

1505 LET E=Q 

1510 IF LENtDS)<>8 THEN GOTO 15 

60 

1520 LET M-VAL DS(4 TO 5) 

1525 IF M<1 OR M>13 THEN GOTO 1 

560 

1530 LET D-VAL DSU TO 2) 

1535 IF DO OR DM7AL MS<(M-1}*2 

+1 TO (M-l)*2+2) THEN GOTO 1590 

155 RETURN 

1590 LET E»l 

1600 RETURN 



Se a variavel E retornar igual a 0, a 
data e valida; se retornar igual a 1 , hou- 
ve erro de entrada. 



A DATA CORRIDA 



Para muitas das teenicas de calculo- 
de I'uncoes relacionadas a datas, e pre- 
cise saber o dia do ano de certa data de 
calendario. Isso caracteriza a data cor- 
rida, composta do ano e do dia do ano 
(urn numero de 1 a 366). Por exemplo, 
a data corrida para 14 de maio de 1981 
e 134/81, 

Esta sub-rotina calcula a data corri- 
da a partir de uma data de calendario 
D$, em formato de oito bytes. O resul- 
tado sera armazenado em N. 

1600 M$«"0000310590891201501812 

12242273303334" 

1605 Dt-VAL(MIDS(DS,1,2) ) : M*=VA 

L(MID$(D$,4,2) ) : At-VAL (MIDS (DS . 

7,2)) 

1610 N*=VAL(MID$(MS. CMt-l)*3+l. 

3) )+D* 

1620 IF Mi>2 AND (AS AND N0T-4) 

-0 THEN N*=N1+1 

1630 RETURN 



1600 LET M$="G000310590B9120150 
181212242273303334" 

1605 LET D=VAL DS ( 1 TO 2) 

1606 LET M=VAL D$ (4 TO 5) 

1607 LET A=VAL D$ ( 7 TO 9) 
1610 LET N=VAL M$((M-1)*3+1 TO 
(M-l)*3+3)+D 

1620 IF M>2 AND (A AND NOT-4) =0 

THEN LET N = N+1 
1630 RETURN 

A variavel M$, na linha 1600, con- 
tent o numero do dia no ano equivalen- 
te ao primeiro dia de cada mes, menos 
1, para ano nao bissexto. As variaveis 
D, M e A sao cxtraidas da variavel D$, 
que content a data de calendario. Na li- 
nha 1610, o numero de dias correspon- 
dence a data D,M,A e calculado 
somando-se D ao mirnero que se obtem 
extraindo-se do string M$ o valor para 
o primeiro dia do mes M. 

Finalmente, a linha 1620 verifica se 
o mes e marco ou urn dos meses que o 
sucedem e se o ano e divisivel por 4 (ano 
bissexto). Nesse caso, acrescenta-se 1 ao 
numero do dia, para compensar o fato 
de tevereiro ter 29 dias. O emprego, 
pouco usual, da expressao Eogica AND 
NOT funciona como teste do resto da 
divisao por 4. 

A rotina so pode ser usada para os 
anos de 1901 a 1999, pois o calculo de 
anos bissextos nao funciona para seeu- 



los impares — a nao ser que o ano em 
questao seja divisive! por 400. 



DIAS ENTRE DUAS DATAS 



O modo mais facil de determinar o 
numero de dias transcorridos entre duas 
datas de calendario consiste em calcu- 
lar a data corrida de cada uma e obter 
a sua diferenca mais 1 . A operacao fun- 
cionara bem se as datas forem do mes- 
mo ano; caso contrario, dara resultados 
errados. 

Por isso, devemos obter urn outro 
numero (chamado data Juliana), que le- 
va em conta o total de dias entre uma 
data-base, fixa, e a data de calendario 
que especi ficamos, Para simplificar o 
calculo, multiplicamos o ano por 365, 
de forma que a data-base passa a ser 
1900; depois, somamos o numero de 
dias referente aos anos bissextos entre 
1900 e o ano atual. 

A pr6xima sub-rotina calcula a difc- 
ren$a entre duas datas, entre 1901 e 
1999. Adicione-a a sub-rotina anterior, 
que comeca na linha 1600. 

QQMHI31 

1700 DS=D13:G0SUB 1600:N1=NS+ 
A**365+INT( (At-l)/4) 
1710 DS=D2$:GQ5UB 
1600-N2=N*+At*3 65+INT( tA*~l)/4) 
1720 P=INT(N2-N1) : RETURN 



1700 LET D$=D15 

1705 GOSUB 1600 

1706 LET N1=N+A*365+INT (A-13/4 
1710 LET DS=D25 

1715 GOSUB 1600 

1716 LET N2 = N+A*365 + INT (A-D/4 
1720 LET P=INT N2-N1 

17 25 RETURN 

A sub-rotina aceita como argumen- 
ts duas datas, DISe D2S, no formato 
de oito bytes (DD/MM/AA), e retorna 
o resultado armazenado em P. 

Para testa-la, acrescente as seguintes 
linhas: 

10 PRINT "PRIMEIRA DaTA (DD/MM/ 

AA) " ; 

20 INPUT D1S 

30 PRINT "SEGUNDA DATA (DD/MM/ 

AA) " i 

40 INPUT D2$ 

50 GOSUB 1700 

60 PRINT P 

70 GOSUB 10 

Use o programa para saber quantos 
dias voce viveu ate hoje! 
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aplicaqoes 

Ferramentas para o Spectrum. Comandos extras. Renumeracao 
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PERJFERICOS 
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C6DIGO DE MAQUINA 
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